(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     23969,        772]
NotebookOptionsPosition[     21010,        681]
NotebookOutlinePosition[     23038,        736]
CellTagsIndexPosition[     22953,        731]
WindowTitle->TFIOrder
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[Cell[BoxData[
     ActionMenuBox[
      FrameBox[
       InterpretationBox[Cell[TextData[{
         "URL",
         StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
          StripOnInput->False]
        }]],
        TextCell[
         Row[{"URL", 
           Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
       StripOnInput->False], {"\<\"FeynCalc/ref/TFIOrder\"\>":>
      None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
      Module[{DocumentationSearch`Private`nb$}, 
       DocumentationSearch`Private`nb$ = NotebookPut[
          Notebook[{
            Cell["FeynCalc/ref/TFIOrder"]}, Visible -> False]]; 
       SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
       FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
       NotebookClose[DocumentationSearch`Private`nb$]; Null], 
      Delimiter, "\<\"Copy web URL\"\>":>
      Module[{DocumentationSearch`Private`nb$}, 
       DocumentationSearch`Private`nb$ = NotebookPut[
          Notebook[{
            Cell[
             BoxData[
              MakeBoxes[
               Hyperlink[
               "http://reference.wolfram.com/language/FeynCalc/ref/TFIOrder.\
html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
           False]]; SelectionMove[
        DocumentationSearch`Private`nb$, All, Notebook]; 
       FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
       NotebookClose[DocumentationSearch`Private`nb$]; 
       Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
        NotebookLocate[{
          URL[
           StringJoin[
            If[
             TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$266962], 
             "http://reference.wolfram.com/system-modeler/", 
             "http://reference.wolfram.com/language/"], 
            "FeynCalc/ref/TFIOrder", ".html"]], None}]}]},
      Appearance->None,
      MenuAppearance->Automatic,
      MenuStyle->"URLMenu"]],
     LineSpacing->{1.4, 0}]], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["TFIOrder", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"TFIOrder", "[", "exp", "]"}]], "InlineFormula"],
     " \[LineSeparator] orders the arguments of some TFI functions in exp in \
a standard way."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->523312351],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->797953554],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tarcer`TFI", "[", 
  RowBox[{"D", ",", 
   RowBox[{"p", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "M2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "M1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "M3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "M4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "M5"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->2090101523],

Cell[BoxData[
 FormBox[
  RowBox[{"Tarcer`TFI", "(", 
   RowBox[{"D", ",", 
    SuperscriptBox["p", "2"], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "M2"},
       {"1", "M1"},
       {"1", "M3"},
       {"1", "M4"},
       {"1", "M5"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], ")"}], 
  TraditionalForm]], "Output",
 ImageSize->{187, 87},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[1]=",
 CellID->385222805]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TFIOrder", "[", "%", "]"}]], "Input",
 CellLabel->"In[2]:=",
 CellID->339387350],

Cell[BoxData[
 FormBox[
  RowBox[{"Tarcer`TFI", "(", 
   RowBox[{"D", ",", 
    SuperscriptBox["p", "2"], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "M1"},
       {"1", "M2"},
       {"1", "M4"},
       {"1", "M3"},
       {"1", "M5"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], ")"}], 
  TraditionalForm]], "Output",
 ImageSize->{187, 87},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[2]=",
 CellID->847054476]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", 
       RowBox[{"m2", "^", "4"}], "*", 
       RowBox[{"m3", "^", "2"}]}], "+", 
      RowBox[{
       RowBox[{"m2", "^", "2"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "D"}], ")"}], "*", 
            RowBox[{"m1", "^", "2"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6"}], "+", "D"}], ")"}], "*", 
          RowBox[{"m3", "^", "2"}]}]}], ")"}], "*", 
       RowBox[{"m4", "^", "2"}]}], "+", 
      RowBox[{
       RowBox[{"m4", "^", "2"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", "D"}], ")"}], "*", 
          RowBox[{"m1", "^", "4"}]}], "+", 
         RowBox[{
          RowBox[{"m3", "^", "2"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", "D"}], ")"}], "*", 
             RowBox[{"m3", "^", "2"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", "D"}], ")"}], "*", 
             RowBox[{"m4", "^", "2"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"m1", "^", "2"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", "D"}], ")"}], "*", 
             RowBox[{"m3", "^", "2"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", "D"}], ")"}], "*", 
             RowBox[{"m4", "^", "2"}]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"m2", "^", "2"}], "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", "*", 
               RowBox[{"m3", "^", "2"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "6"}], "+", "D"}], ")"}], "*", 
               RowBox[{"m4", "^", "2"}]}]}], ")"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"m4", "^", "2"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "6"}], "+", "D"}], ")"}], "*", 
             RowBox[{"m1", "^", "2"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", "D"}], ")"}], "*", 
             RowBox[{"m3", "^", "2"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", "D"}], ")"}], "*", 
             RowBox[{"m4", "^", "2"}]}]}], ")"}]}]}], ")"}], "*", 
       RowBox[{"SPD", "[", 
        RowBox[{"p", ",", "p"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "*", 
          RowBox[{"m3", "^", "2"}]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "4"}], "+", "D"}], ")"}], "*", 
          RowBox[{"m4", "^", "2"}]}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"SPD", "[", 
         RowBox[{"p", ",", "p"}], "]"}], "^", "2"}]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Tarcer`TFI", "[", 
       RowBox[{"D", ",", 
        RowBox[{"SPD", "[", 
         RowBox[{"p", ",", "p"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "m1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "m2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "m3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "m4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "m3"}], "}"}]}], "}"}]}], "]"}], "-", 
      RowBox[{"Tarcer`TFI", "[", 
       RowBox[{"D", ",", 
        RowBox[{"SPD", "[", 
         RowBox[{"p", ",", "p"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "m3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "m4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "m1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "m2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "m3"}], "}"}]}], "}"}]}], "]"}]}], ")"}]}], 
   ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"4", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"m2", "^", "4"}], "*", 
       RowBox[{"m3", "^", "2"}]}], "-", 
      RowBox[{
       RowBox[{"m2", "^", "2"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"m1", "^", "2"}], "+", 
         RowBox[{"m3", "^", "2"}]}], ")"}], "*", 
       RowBox[{"m4", "^", "2"}]}], "+", 
      RowBox[{
       RowBox[{"m4", "^", "2"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"m1", "^", "4"}], "+", 
         RowBox[{"m3", "^", "4"}], "+", 
         RowBox[{
          RowBox[{"m1", "^", "2"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], "*", 
             RowBox[{"m3", "^", "2"}]}], "+", 
            RowBox[{"m4", "^", "2"}]}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"m1", "^", "2"}], "+", 
            RowBox[{"m3", "^", "2"}]}], ")"}], "*", 
          RowBox[{"m4", "^", "2"}]}], "+", 
         RowBox[{
          RowBox[{"m2", "^", "2"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "*", 
             RowBox[{"m3", "^", "2"}]}], "-", 
            RowBox[{"m4", "^", "2"}]}], ")"}]}]}], ")"}], "*", 
       RowBox[{"SPD", "[", 
        RowBox[{"p", ",", "p"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"m3", "^", "2"}], "*", 
       RowBox[{
        RowBox[{"SPD", "[", 
         RowBox[{"p", ",", "p"}], "]"}], "^", "2"}]}]}], ")"}]}], 
   ")"}]}]], "Input",
 CellLabel->"In[3]:=",
 CellID->2139733482],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FormBox[
         SuperscriptBox[
          FormBox[
           FormBox["p",
            TraditionalForm],
           TraditionalForm], "2"],
         TraditionalForm], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["m4", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"D", "-", "6"}], ")"}], " ", 
              SuperscriptBox["m1", "2"]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"D", "-", "2"}], ")"}], " ", 
              SuperscriptBox["m3", "2"]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"D", "-", "4"}], ")"}], " ", 
              SuperscriptBox["m4", "2"]}]}], ")"}]}], "-", 
          RowBox[{
           SuperscriptBox["m2", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"D", "-", "6"}], ")"}], " ", 
              SuperscriptBox["m4", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["m3", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m2", "2"], " ", 
        SuperscriptBox["m4", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"D", "-", "6"}], ")"}], " ", 
           SuperscriptBox["m3", "2"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"D", "-", "2"}], ")"}], " ", 
           SuperscriptBox["m1", "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m4", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"D", "-", "3"}], ")"}], " ", 
           SuperscriptBox["m1", "4"]}], "+", 
          RowBox[{
           SuperscriptBox["m1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"D", "-", "2"}], ")"}], " ", 
              SuperscriptBox["m4", "2"]}], "-", 
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{"D", "-", "3"}], ")"}], " ", 
              SuperscriptBox["m3", "2"]}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["m3", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"D", "-", "3"}], ")"}], " ", 
              SuperscriptBox["m3", "2"]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"D", "-", "4"}], ")"}], " ", 
              SuperscriptBox["m4", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         FormBox[
          SuperscriptBox[
           FormBox[
            FormBox["p",
             TraditionalForm],
            TraditionalForm], "2"],
          TraditionalForm], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["m3", "2"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"D", "-", "4"}], ")"}], " ", 
           SuperscriptBox["m4", "2"]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["m2", "4"], " ", 
        SuperscriptBox["m3", "2"]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Tarcer`TFI", "(", 
        RowBox[{"D", ",", 
         FormBox[
          SuperscriptBox[
           FormBox[
            FormBox["p",
             TraditionalForm],
            TraditionalForm], "2"],
          TraditionalForm], ",", 
         RowBox[{"(", "\[NoBreak]", GridBox[{
            {"1", "m1"},
            {"1", "m2"},
            {"1", "m3"},
            {"1", "m4"},
            {"1", "m3"}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.7]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], 
        ")"}], "-", 
       RowBox[{"Tarcer`TFI", "(", 
        RowBox[{"D", ",", 
         FormBox[
          SuperscriptBox[
           FormBox[
            FormBox["p",
             TraditionalForm],
            TraditionalForm], "2"],
          TraditionalForm], ",", 
         RowBox[{"(", "\[NoBreak]", GridBox[{
            {"1", "m3"},
            {"1", "m4"},
            {"1", "m1"},
            {"1", "m2"},
            {"1", "m3"}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.7]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], 
        ")"}]}], ")"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         FormBox[
          SuperscriptBox[
           FormBox[
            FormBox["p",
             TraditionalForm],
            TraditionalForm], "2"],
          TraditionalForm], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["m4", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["m1", "2"], "+", 
              SuperscriptBox["m3", "2"]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["m2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox["m3", "2"]}], "-", 
              SuperscriptBox["m4", "2"]}], ")"}]}]}], ")"}]}]}], "-", 
       RowBox[{
        SuperscriptBox["m2", "2"], " ", 
        SuperscriptBox["m4", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["m1", "2"], "+", 
          SuperscriptBox["m3", "2"]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m4", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["m1", "4"], "+", 
          RowBox[{
           SuperscriptBox["m1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["m4", "2"], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["m3", "2"]}]}], ")"}]}], "+", 
          SuperscriptBox["m3", "4"]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m2", "4"], " ", 
        SuperscriptBox["m3", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["m3", "2"], " ", 
        SuperscriptBox[
         FormBox[
          SuperscriptBox[
           FormBox[
            FormBox["p",
             TraditionalForm],
            TraditionalForm], "2"],
          TraditionalForm], "2"]}]}], ")"}]}], ")"}]}], 
  TraditionalForm]], "Output",
 ImageSize->{573, 341},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[3]=",
 CellID->1501141062]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TFIOrder", "[", "%", "]"}]], "Input",
 CellLabel->"In[4]:=",
 CellID->335983448],

Cell[BoxData[
 FormBox["0", TraditionalForm]], "Output",
 ImageSize->{13, 14},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[4]=",
 CellID->1189820737]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{278, Automatic}, {Automatic, 28}},
WindowTitle->"TFIOrder",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 11, 45.331004}", 
    "history" -> {"9.3", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "TFIOrder[exp] orders the arguments of some TFI functions in exp in a \
standard way.", "synonyms" -> {}, "tabletags" -> {}, "title" -> "TFIOrder", 
    "titlemodifier" -> "", "windowtitle" -> "TFIOrder", "type" -> "Symbol", 
    "uri" -> "FeynCalc/ref/TFIOrder"}, "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "PrimaryExamplesSection"->{
  Cell[3576, 105, 387, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->523312351]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"PrimaryExamplesSection", 22810, 724}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[580, 21, 2273, 53, 53, "AnchorBarGrid",
 CellID->1],
Cell[2856, 76, 285, 11, 45, "ObjectNameGrid"],
Cell[3144, 89, 407, 12, 85, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[3576, 105, 387, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->523312351],
Cell[CellGroupData[{
Cell[3988, 124, 195, 6, 26, "ExampleSection",
 CellID->797953554],
Cell[CellGroupData[{
Cell[4208, 134, 513, 17, 27, "Input",
 CellID->2090101523],
Cell[4724, 153, 872, 27, 108, "Output",
 CellID->385222805]
}, Open  ]],
Cell[CellGroupData[{
Cell[5633, 185, 104, 3, 27, "Input",
 CellID->339387350],
Cell[5740, 190, 872, 27, 108, "Output",
 CellID->847054476]
}, Open  ]],
Cell[CellGroupData[{
Cell[6649, 222, 6469, 202, 232, "Input",
 CellID->2139733482],
Cell[13121, 426, 7492, 232, 362, "Output",
 CellID->1501141062]
}, Open  ]],
Cell[CellGroupData[{
Cell[20650, 663, 104, 3, 27, "Input",
 CellID->335983448],
Cell[20757, 668, 187, 6, 35, "Output",
 CellID->1189820737]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[20983, 679, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

